home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / s85xx / s8505.d64 / uebers. listing (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  963b  |  30 lines
  1. 0 ADRESSE = 49152:REM BELIEBIG
  2. 1 REM *******************
  3. 2 REM *    WRITTEN BY   *
  4. 3 REM *FRANK BARCIKOWSKI*
  5. 4 REM *  MORAENENWEG 33 *
  6. 5 REM *3320 SALZGITTER-1*
  7. 6 REM *******************
  8. 10 FORI=ADRESSE TO ADRESSE+87
  9. 20 READ A:S=S+A:POKE I,A
  10. 30 NEXT
  11. 31 IF S<>10407THENPRINT"DATA ERROR!":END
  12. 35 REM DEM JEWEILIGEN BERREICH ANPASSEN
  13. 36 HI=INT((ADRESSE+11)/256)
  14. 37 LO=ADRESSE+11-INT((ADRESSE+11)/256)*256
  15. 38 POKE ADRESSE+6,HI
  16. 39 POKE ADRESSE+1,LO
  17. 40 SYS ADRESSE:POKE 2,0:END
  18. 50 REM ------------------------
  19. 60 REM EINSCHALTEN DER ERWEITERUNG :
  20. 70 REM POKE 2,0
  21. 80 REM ------------------------
  22. 90 REM AUSSCHALTEN DER ERWEITERUNG :
  23. 99 REM POKE 2,<>0
  24. 100 REM------------------------
  25. 101 DATA169,11,141,6,3,169,48,141,7,3,96,16,3,76,28,167,201,58,240,3,76,243
  26. 102 DATA166,166,2,240,3,76,243,166,169,13,32,210,255,152,72,160,2,177,95
  27. 103 DATA170,200,177,95,133,98,134,99,162,144,56,32,73,188,32,223,189,162
  28. 104 DATA0,189,0,1,240,3,232,208,248,169,32,32,210,255,202,208,250,104,168
  29. 105 DATA169,32,76,243,166,48,141,7,7,96
  30.